home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / MOUSEX.PAS < prev    next >
Pascal/Delphi Source File  |  1986-10-07  |  482b  |  23 lines
  1. procedure Mouse(var M1,M2,M3,M4 : Integer);
  2. var
  3.   Regs : Regis;
  4. begin
  5.   with Regs do begin
  6.     AX := M1;                { Set up ax,bx,cx,dx for interrupt }
  7.     BX := M2;
  8.     CX := M3;
  9.     IF M1 = 9 THEN
  10.       BEGIN
  11.        DX := OFS(CUR[0]);
  12.        ES := SEG(CUR[0]);
  13.       END
  14.     ELSE DX := M4;
  15.   end;
  16.   Intr(51,Regs);             { Trip interrupt 51 }
  17.   with Regs do begin
  18.     M1 := AX;
  19.     M2 := BX;
  20.     M3 := CX;
  21.     M4 := DX
  22.   end
  23. end; { of proc Mouse }